home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / RunTime Sk200605252001.psc / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-05-12  |  2.2 KB  |  80 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   2265
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   3210
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2265
  11.    ScaleWidth      =   3210
  12.    ShowInTaskbar   =   0   'False
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin VB.Frame Frame1 
  15.       Caption         =   "For What Program"
  16.       Height          =   2055
  17.       Left            =   120
  18.       TabIndex        =   0
  19.       Top             =   120
  20.       Width           =   3015
  21.       Begin VB.CommandButton Command1 
  22.          Caption         =   "OK"
  23.          Height          =   255
  24.          Left            =   1920
  25.          TabIndex        =   4
  26.          Top             =   1560
  27.          Width           =   735
  28.       End
  29.       Begin VB.OptionButton Option3 
  30.          Caption         =   "Test3"
  31.          Height          =   255
  32.          Left            =   240
  33.          TabIndex        =   3
  34.          Top             =   1200
  35.          Width           =   1095
  36.       End
  37.       Begin VB.OptionButton Option2 
  38.          Caption         =   "Test2"
  39.          Height          =   255
  40.          Left            =   240
  41.          TabIndex        =   2
  42.          Top             =   840
  43.          Width           =   855
  44.       End
  45.       Begin VB.OptionButton Option1 
  46.          Caption         =   "Test1"
  47.          Height          =   255
  48.          Left            =   240
  49.          TabIndex        =   1
  50.          Top             =   480
  51.          Width           =   1455
  52.       End
  53.    End
  54. Attribute VB_Name = "Form1"
  55. Attribute VB_GlobalNameSpace = False
  56. Attribute VB_Creatable = False
  57. Attribute VB_PredeclaredId = True
  58. Attribute VB_Exposed = False
  59. Private Sub Command1_Click()
  60. If Option1.Value = True Then
  61. MsgBox "It is done"
  62. paint.MainPic.Height = 5000
  63. paint.MainPic.Width = 5000
  64. Unload Me
  65. If Option2.Value = True Then
  66. MsgBox "It shall be done"
  67. paint.MainPic.Height = 3000
  68. paint.MainPic.Width = 3000
  69. Unload Me
  70. If Option3.Value = True Then
  71. MsgBox "It has been done"
  72. paint.MainPic.Height = 2000
  73. paint.MainPic.Width = 2000
  74. Unload Me
  75. End If
  76. End If
  77. End If
  78. paint.Show
  79. End Sub
  80.